home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 134 / Tiger_Disk_134_20xx_Tiger-Crew-Disk_de_Side_B.d64 / file recovery (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  84 lines
  1. 20 dn$=""
  2. 21 rt$="":rt$=rt$+rt$
  3. 22 c0$=chr$(0):cr$=chr$(13):ex$=chr$(147)
  4. 23 sp$="                                          "
  5. 80 dimfl$(223),t%(223),s%(223),dt%(223),ds%(223),bl%(223)
  6. 90 m=53280:pokem,1:pokem+1,1:poke53272,23:open1,8,15:goto1000
  7. 500 rem *** read scratched directory [9,0,fl$(fl%)]
  8. 501 open9,8,9,"#":t%=18:s%=1:fl%=0
  9. 502 fl%=0:print#1,"u1"9;0;t%;s%:print#1,"b-p"9;0
  10. 503 get#9,nt$:nt%=0:ifnt$<>""thennt%=asc(nt$)
  11. 504 get#9,ns$:ns%=0:ifns$<>""thenns%=asc(ns$)
  12. 505 fori=2to226step32:print#1,"b-p"9;i:get#9,ty$:ifty$<>""goto511
  13. 506 get#9,t$:ift$=""thent$=c0$:goto511
  14. 507 get#9,s$:ifs$=""thens$=c0$
  15. 508 t%(fl%)=asc(t$):s%(fl%)=asc(s$):dt%(fl%)=t%:ds%(fl%)=s%:bp%(fl%)=i
  16. 509 print#1,"b-p"9;i+19:print#9,chr$(13);:print#1,"b-p"9;i+3
  17. 510 input#9,fl$(fl%):fl%=fl%+1
  18. 511 nexti:t%=nt%:s%=ns%:ift%<>0goto502
  19. 512 close9:return
  20. 600 rem *** get link [9(open),nt%,ns%]
  21. 601 print#1,"u1"9;0;t%;s%:print#1,"b-p"9;0
  22. 602 get#9,nt$:nt%=0:ifnt$<>""thennt%=asc(nt$)
  23. 603 get#9,ns$:ns%=0:ifns$<>""thenns%=asc(ns$)
  24. 604 return
  25. 700 rem *** allocate and check
  26. 701 print#1,"b-a"0;t%;s%:gosub900:ok%=1:ifen$="65"thenok%=0
  27. 702 return
  28. 900 rem *** disk error check
  29. 901 input#1,en$:ifen$="00"oren$="65"thenreturn
  30. 902 print" disk error #"en$:(NULL):stop
  31. 1000 print"[147][149] 1541 [211][195][210][193][212][195][200][197][196][160][198][201][204][197][160][210][197][195][207][214][197][210][217] "
  32. 1001 rem *** select file
  33. 1010 print" [201]nsert diskette in drive #0  "
  34. 1015 print" [210][197][212][213][210][206][146] = ready    [195][204][210][146] = stop "
  35. 1020 getg$:ifg$<>cr$andg$<>ex$goto1020
  36. 1025 if g$ = ex$ then end
  37. 1030 print#1,"i0":gosub900:open9,8,9,"#":print#1,"u1"9;0;18;0
  38. 1040 print#1,"b-p"9;165:print#9,cr$;:print#1,"b-p"9;144:input#9,id$:close9
  39. 1050 print"[145] [196][201][211][203]: "id$"   "
  40. 1055 print"  y [146] = accept     n [146] = reject "
  41. 1060 getg$:ifg$<>"y"andg$<>"n"goto1060
  42. 1070 print"[145]"sp$:ifg$="n"goto1000
  43. 1075 gosub500
  44. 1080 print"[147]"
  45. 1085 print" [211][195][210][193][212][195][200][197][196][160][198][201][204][197][160][196][201][210][197][195][212][207][210][217][160]"
  46. 1086 print"### filename         [212]  [211][160]"
  47. 1087 print"--------------------------"
  48. 1090 fori=0tofl%step20:forj=0to19:printright$("  "+str$(i+j+1),3);
  49. 1100 print" "left$(fl$(i+j)+sp$,16);
  50. 1105 printright$(str$(t%(i+j)),2)" "right$(str$(s%(i+j)),2):nextj
  51. 1110 input" [210][197][195][207][214][197][210][160]# ([210][197][212][213][210][206] to see more) [146][160][160][160][157][157][157]";rc$
  52. 1120 rc%=val(rc$):ifrc%<>0theni=fl%
  53. 1130 nexti:ifrc%<>0goto1180
  54. 1140 printleft$(dn$,24)" [197][206][196][160][207][198][160][196][201][210][197][195][212][207][210][217] - [210][197][208][197][193][212](y/n)?[160][146]     ";
  55. 1150 getg$:ifg$<>"y"andg$<>"n"goto1150
  56. 1160 ifg$="y"goto1085
  57. 1170 print"[147]":goto1000
  58. 1180 rc%=rc%-1:iffl$(rc%)=""goto1140
  59. 1200 print"[147] [210][197][195][207][214][197][210]: "fl$(rc%)"    "
  60. 1210 print"  y [146] = accept     n [146] = reject "
  61. 1220 getg$:ifg$<>"y"andg$<>"n"goto1220
  62. 1230 ifg$="n"thenprint"[145]"sp$:goto1080
  63. 1240 print"[145]  s [146]=[211][197][209]    u [146]=[213][211][210]    p [146]=[208][210][199] ?"
  64. 1250 getg$:ifg$<>"s"andg$<>"u"andg$<>"p"goto1250
  65. 1260 ty%=130:ifg$>"p"thenty%=129:ifg$>"s"thenty%=131
  66. 1270 t%=t%(rc%):s%=s%(rc%):bl%=0:open9,8,9,"#":xt%=t%:xs%=s%
  67. 1280 print"[145]    [210][197][195][207][214][197][210][217][160][201][206][160][208][210][207][199][210][197][211][211]      "
  68. 1290 print""left$(rt$,38)chr$(15);
  69. 1300 gosub700:ifok%=0goto1400
  70. 1305 bl%=bl%+1:print""right$(" "+str$(t%),3)right$(" "+str$(s%),3);
  71. 1310 gosub600:ifnt%=0goto1500
  72. 1320 xt%=t%:xs%=s%:t%=nt%:s%=ns%:goto1300
  73. 1400 ifxt%=t%andxs%=s%thenme$="     [206][207] [210][197][195][207][214][197][210][217][160][208][207][211][211][201][194][204][197]     ":goto1600
  74. 1405 print#1,"u1"9;0;xt%;xs%:print#1,"b-p"9;255:print#9,cr$;:ifty%=130goto1420
  75. 1410 print#1,"b-p"9;253:print#9,c0$c0$c0$;
  76. 1420 print#1,"u2"9;0;nt%;ns%
  77. 1430 me$="    [208][193][210][212][201][193][204][160][210][197][195][207][214][197][210][217][160][207][206][204][217]     "
  78. 1500 print#1,"u1"9;0;dt%(rc%);ds%(rc%):print#1,"b-p"9;bp%(rc%)
  79. 1510 print#9,chr$(ty%);:print#1,"b-p"9;bp%(rc%)+28
  80. 1520 hi%=bl%/256:lo%=bl%-hi%*256:print#9,chr$(lo%)chr$(hi%);
  81. 1530 print#1,"u2"9;0;dt%(rc%);ds%(rc%)
  82. 1600 ifme$=""thenme$="   [198][213][204][204][160][210][197][195][207][214][197][210][217][160][211][213][195][195][197][211][211][198][213][204][160] [160]"
  83. 1610 close9:close15:print"[147]"me$:end
  84.